LA_CPA_Map <- leaflet() %>%
addProviderTiles("CartoDB.Positron") %>%
addPolygons(data=CPA_Geo,
color="#70cfcb",
opacity = 1,
weight = 1.2,
label= paste("CPA Name:", CPA_Geo$NAME_ALF) %>%
lapply(htmltools::HTML))
LA_CPA_Map
“Development Permits (Building Addition, New Building, or Building Demolition)”, “Other Permits (None-building permits, swimming-pool, sign, etc.)”
Stats_1_fig
# Basemap
basemap <- leaflet() %>%
# add different provider tiles
addProviderTiles(
"OpenStreetMap",
# give the layer a name
group = "OpenStreetMap"
) %>%
addProviderTiles(
"Stamen.Toner",
group = "Stamen.Toner"
) %>%
addProviderTiles(
"Stamen.Terrain",
group = "Stamen.Terrain"
) %>%
addProviderTiles(
"Esri.WorldStreetMap",
group = "Esri.WorldStreetMap"
) %>%
addProviderTiles(
"Wikimedia",
group = "Wikimedia"
) %>%
addProviderTiles(
"CartoDB.Positron",
group = "CartoDB.Positron"
) %>%
addProviderTiles(
"Esri.WorldImagery",
group = "Esri.WorldImagery"
) %>%
# add a layers control
addLayersControl(
baseGroups = c(
"OpenStreetMap", "Stamen.Toner",
"Stamen.Terrain", "Esri.WorldStreetMap",
"Wikimedia", "CartoDB.Positron", "Esri.WorldImagery"
),
# position it on the topleft
position = "topleft"
)
icon.fa <- makeAwesomeIcon(
icon = "flag", markerColor = "red",
library = "fa",
iconColor = "black"
)